home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / l / lotteryanalyserv1.0.lha / Analyser / Install-Analyser < prev    next >
Text File  |  1996-02-16  |  2KB  |  76 lines
  1. ; Install Lottery Analyser (v1.0)
  2. ; $VER: Install Analyser
  3.  
  4.  
  5. ; some 'constants'
  6.  
  7. (set app_volume "Analyser:")
  8. (set orig_user_level @user-level)
  9. (set #finishmsg
  10.   (cat "\nAfter clicking the `Proceed' button, remove the `Analyser' disk from the internal disk drive and reset your Amiga.\n"
  11.   )
  12. )
  13.  
  14. (user orig_user_level)
  15.  
  16. ; tell average/expert user what we'll be doing
  17.  
  18. (message
  19.    "\nYour copy of The Lottery Analyser will be installed in a new drawer named "
  20.    "\"Analyser\". You will be asked where on your hard drive "
  21.     "(or other storage device) you want this drawer created."
  22. )
  23.  
  24. ; ask user where to put the drawer
  25.  
  26. (set app_locate
  27.  (askdir
  28.   (prompt "Please indicate where you want the Analyser Drawer "
  29.          "to be located.")
  30.   (help @askdir-help)
  31.   (default @default-dest)
  32.  )
  33. )
  34.  
  35. ; make the main drawer
  36.  
  37. (set app_locate (tackon app_locate "Analyser"))
  38.  
  39. (makedir app_locate (infos))
  40.  
  41. (set @default-dest app_locate)
  42.  
  43. ; Copy files
  44.  
  45. (copyfiles
  46.   (source app_volume)
  47.   (dest app_locate)
  48.   (choices
  49.     "Lottery"
  50.     "Lottery.info"     
  51.     "Lottery.draws"
  52.     "Lottery.own"
  53.     "Lottery.syn"
  54.     "Analyser.Guide"
  55.     "Analyser.Guide.info"
  56.     "Analyser.txt"
  57.     "Analyser.txt.info"       
  58.     )
  59.   (infos)
  60. )
  61. (complete 30)
  62.  
  63.  
  64. (startup "Analyser"
  65.         (prompt
  66.                 "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use Analyser.")
  67.         (help "No help for this function")
  68.         (command "assign Analyser: " app_locate)
  69. )
  70.  
  71. (makeassign "Analyser: " app_locate)
  72.  
  73. (complete 100)
  74.  
  75. (exit #finishmsg)
  76.